      PROGRAM TEST
      REAL A,B
      DIMENSION(10) A
      DOUBLE PRECISION X
      DOUBLE PRECISION Y
      DOUBLE COMPLEX Z1
      DOUBLE COMPLEX Z2
      DOUBLE COMPLEX Z3

C     DO LOOP
      SUM1=0
      DO 10 I=1,10
      SUM1=SUM1+1
  10  CONTINUE
      CALL ADD(X,Y)
      Z3=SUB(Z1,Z2)
      END

C     SUBROUTINE
      SUBROUTINE ADD(X,Y)
      DOUBLE PRECISION X
      DOUBLE PRECISION Y
      X=X+Y
      END

      FUNCTION SUB(X,Y)
      DOUBLE COMPLEX X
      DOUBLE COMPLEX Y
      DOUBLE COMPLEX SUB
      SUB = X-Y
      END


